【实例简介】delphi USB-Camera
关于delphi如何减小JPG文件的大小？
几天前，我问了这个问题并得到了答案：
如何添加相框并将文字插入图像中？
现在，当我将TPanel(1x形状，1x TImage，2x TLabel)中的内容另存为JPG文件时，
JPG文件的大小从20kb增加到620kb，这是TImage中图片的大小。
尺寸几乎相同。 原始JPG文件320x320，新JPG图片361x440。
那么，如何减小尺寸呢？
【实例截图】
|
1 |
procedure TForm1.SavePanelAsImage; |
·
正在创建位图文件！ 在我的回答的"注释"部分中，我提到您必须使用TJPEGImage将位图转换为Jpeg。 我的示例保存了一个位图，正如@
David-Heffernan澄清的;)
·
顺便说一句，顺便说一句。 JPEG是一种有损压缩算法，这意味着如果保存图像并再次加载，则不会获得完全相同的图像。 因此，如果您多次对其进行编辑，每次另存为JPEG，则图像将遭受多代损失。
评论